home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / MISCBAS.ARJ / PRTSC.BAS < prev    next >
BASIC Source File  |  1992-06-23  |  357b  |  9 lines
  1. 10000 ' print the screen
  2. 10010 DEF SEG                       'set segment to BASIC's data segment
  3. 10020 PRTSCCODE! = 0                'allocate four bytes of memory
  4. 10030 PRTSC = VARPTR(PRTSCCODE!)    'find out where it is
  5. 10040 POKE prtsc, &HCD              'put the code into the memory
  6. 10050 POKE prtsc + 1, 5
  7. 10060 POKE prtsc + 2, &HCB
  8. 10080 CALL PRTSC
  9.